home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs32.d81 / examples.arc / POPDIR.A < prev    next >
Text File  |  1989-12-01  |  696b  |  24 lines
  1. ; popdir.asm
  2. ;===========================
  3. ; Restore current directory
  4. ;===========================
  5.                                   
  6. int00       = $1700               
  7. int0e       = $170e               
  8.                                   
  9. star        = $0b00               
  10.             .wor star             
  11.             * = star              
  12.  
  13.             jmp popdir
  14.             dw  Date
  15.                 
  16. popdir      lda $1bdb
  17.             jsr int00             
  18.             bcc ex0               
  19.             lda #1                
  20. ex0         lda #1                
  21.             jmp int0e             
  22.                                   
  23.             .end                  
  24.